@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}  |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uL 䙣ލȎ!"` !"H h`lDD  } !qSTARSS1YTDEPQCX W} ZVVThe subroutine from lines 1568-1688 is used by permission from X} COMPUTE! Magazine\))P.O. Box 5406, Greensboro, NC 27403_UUThe subroutine was originally published in COMPUTE! Magazine Y}, March 1982, p.149b++copyright Small System Services, Inc.d +76-F:A`,%F:Aa,$AV%@K&@ Z}@q_%@@s%@@%@@nE@@'AAHE(@ [}STOCK MANAGEMENTsc@@ (@A(@ c(@____________________xK@ \}'A@9A KAR@T-@@!#-P(( ]}T B-@B((|-@ @#- ^}P(( T f-@@|(ONE MOMENT PLEASEB-@B(( _})-@@ )(w-AhA"!Q2P:H: `},$@u,@@U w2,%D:STOCKAN2.SAV 104,104,133,217,104,133&216 a},104,133,209,104,133,208,169,0,133,218,1332207,162,1,165,216,1338214,165,217,133,215,24>165,214,133,212,1 b}01,205D133,214,165,215,133,213J105,0,133,215,164,203P165,206,240,10,177,214V209,212,144,44,240,12\17 c}6,19,177,214,209,212b144,13,240,2,176,30h200,196,204,240,227,176n23,144,223,169,1,133t218,164,205,136,177 }'((kAAGTHLLLRCOLNNTSOQ15Q9QQQQQQQQQQQ1Q1Q1Q1Q1Q1Q1Q1Q2Q2Q2Q2Q2Q3Q3Q3Q3Q3Q3e}Q3Q4Q8Q8Q8Q8Q10Q12Q22Q30Q71Q71Q75Q5Q5PA1S1XASYTDEPQCMSSCSPSTARMMTDYYYPMDf}MBQTCSQSCTSQXQQSMCSPPPPSTDT@DA@c@@u@@@gg}@v @x @e @s AU @@@@@@@@@@ h}@@@B@@@@ @ !@""@##@'$@(%@0&@1'@i}2(@4)@5*@6+@8,@C-@.@/@0@1A2A 3A&4A5A6Aj}7AR8@X9@WA:e;^?@kAoBrCzD}EFk}G HIJBhKLMNOPQRSTUVl}WXYZ[\]^_`abcdem}fghijklmnopqrstun}vwxyz{|}~??"o}55""WW44,115,63,80,75,95,97,67,76,78p},65,73,155,91,0,1,2,3,4,5,6,7,8,9,10,11,12,40000,14cc16,18,19,20,22,23,27,28,30,31,32,34,35,36,38,43,82,85,87,89,100,120,q}226,300,710,712,752,58,57BOT,DIV,NDV,SDV,SKS,SLD9,;,QQ;,;,;,;Af,;,;,;,;,;,r};,;,;,;,;,;+)6-F:A`,%F:Aa,$AV3%&;%C !(ˠ'Cs}(____________________ %#Q ((( ENTER NEW TRANSACTIONS+(Q(! CORRECT EXISTING TRANSACTIONSt}(P(*( LISTING OF ALL TRANSACTIONS-(P( CURRENT STATUS OF HOLDINGS)T(/($ THE PROFIT/LOSS ON A GIVEN STOCu}K2(T( PROFIT/LOSS IN GIVEN YEAR*? -2(#ŠΠĠ?K+' )6-&&v}# )!' ,%%%AP$$AP- !)!$0 6-&6-& 6-2$9 -%(w}$:DA3       >:,D$=i6-A:7<,,&!6-A:7<,,/6-A:7<,,M6-A:x}7$&<$&@&,,&i6-A:7$&@$<$&,,>J6-A:7$&@!<$&,,36-'%'A`%G6-'%'A`%J$y}?: ":('_______________________________________@$A`6.7$&<$&,)6.7$&<$&,:6.7$&<$,M6z}.7$&<$&,`6.7$&<$&,B! 6-A:,6-A:,6-A:,!$C! "-(-!(D( -(6-%{}!"6-(6-FO&"*7+%,$&<+%,$&,0SLDO3   7$&<$&,G 6.!&6-%$H|} 6- $I"-62"2J 22$Kb ( 5( ENTERING DA}}TAS( PLEASE STANDBYY $_6-b$L& 2- #2&$M( -2& %2($~}N: -7((:$O567<,.>:,-&%"(>:,*6-&26-%5$P4 -}4( Ӡ٠٠Ҡ Q %%RF:%,"% S %%$U"#-"46-"$V!} 6. '6-! &W "( X$Y, -,(ĠՠŠĠٿZGK)}""/67<,.P56-;6-A6-G %[$\"67<,.S6-6-"6-] "3>:,>:,^7<},$_2/($2$`1.(&1$aF3('} 9"F(>:%,b$c2/($2$dG 6--%}-C(%G f3 -3(%STOCKSYMBOLTRANSACTIONDATEh6 -3(%EXCHGPRI}CE/DIVQUANT.COMM/MISC6$j -&(>:%,$l" 6.-(7<,-"$n> -("*0'6.7<},/-&8(>:%,>6-p/ * -&(>:%,((7<,/6.q$s) 6-6. %%%) t$ 6}-6. / / $%%x )"&%y " z+*%,*" % |1+")",*%}")"'6-%- %1 }+ "*!67B:,%,. %6-&+ %@* *67<,.>:,)-&%0(>:,86-&@}6-%+"*",*  % "*"  " $-%*+ )!,-)B2y-  % , }!-&%(7<,$6-&,6-% "6. !6.7<&,  $6-'"*!* 6-}'6-$V --(ENTER CORRECTION IN APPROPRIATEV($ SPACE.PRESS IF NO CORRECTION*'( AND AFTER E}ACH CORRECTION.*$" %6-A:,6.=:, "$e 6-6-6-6-!6-'6.+ 16.76-=6-C6.G M}6.S6-Y6-_6-e6- 6. 6./ 6-%6-6-6-#6.) %/6.E &6-A:7<,,%6-A:}7<,,36-A:7<,,A67<,.=:,E 1 6-6-6-6-!6-'6.+ 16.9 6-6-%6-6-#6-)6}.- 36.9 &+ 6-6-6-6. %6.+ &. 6-6-6-6. %6.+ &.$Z'  -}Z(A NON-NUMERIC ENTRY IN FIELD. PLEASE MAKE ENTRY." 6.=:,6-"%%& 6-$} !*!6-$%$+', $6-$%$+',$30((3$]  -](}G DATE MUST BE ENTERED---MM/DD/YY USE ZEROS TO FILL SINGLE DIGITS67<,.=:,6- &' -6-&}"!6-%' &07$&<$&, % B 6-6-6-6-#-0-&686-&>"B   } % ! %4NDV*"6-6 0SKS &- 6-6-"6-!6-'6--6-- "6-}6-6-!6-'6-- &9 "6-+$&,&6-#6-)6-/6-5 &9  !6-'+$, & 6-'}6-% 6-$6-+$,&!"*"%  % 0SLD &"*"*!6-$! "6-"6-! }%! *"6-%"!6- *6-6-&%4BOT* 6-% %% % "6-%! 4}BOT &"*"! ' 4SDV6-$%6-#"' ' 6-%"*"*!'6-%J 6-6- 6}-6-&6-6,6-26-86->6-D"J6-N  6-6-6-(6-P:$,'%76-P:$$,'N6-P:$+$&+%,},,'7 6.67<,.=:,'6. 767&B:,<,.7 6.67<,.=:,'6. 767&B:,<,.9 6.}67<,.=:,)6. 967&B:,<,.5 !(7$&<$&, '06-O:,5( !( $}M 6-66.67<,.=:,,67<,.(=6. )M67&B:,<,. (6-6 "  (>:},"% 6-%" "6-%$$& !*! % &' !*" %(& "6-$%$+'+%,,#6-&$)} !6-$%$+'+%,, $+6-$%$+',$,+ %6]( (0(" ENTER THE SYMBOL OF STOCK TO BES(} CORRECTED AND PRESS .Y] ;T -3(% @KF6-L6-T6-%}@] 6-6-6- 6.) AB D:STOCK.DATY D:STOCK.DAT] E8 $'}27<,48 %J $O9  6--(!-%(+-/(5-9(T1 6--(-(#-}'(--1(YB-( IS THIS THE TRANSACTION?4)B"AU^ $c: &6- &1} D:STOCK.DAT:6.>:,m/ /(rR! D:STOCK.DAT% +-R(" LIKE T}O MAKE ANOTHER CORRECTION?wP'( (Y,N,(M FOR NEW ENTRY) orP(# (D TO DELETE BLANKED TRANSACTION)x )}" | "& %~ "$ $$  K$ Ap  AP= -/(!ǠԠĠ}Š3 = ApN -)( NO TRANSACTIONS IN FILE.N( ENTER DATA THRU SELECTION   }6- &+  K&6-K0(" ENTER THE FOLLOWING DATA IN THEK( APPROPRIATE SPACE.}7( PRESS -( AFTER EACH ENTRY.37  &F  3(# IS DATA ENTRY COMPLETE (Y or N)?:)A(}F( "6-K" %( & K A9 $" D:STOCK.DAT9 D}:STOCK.DATM 6.>:,/(4M D:STOCK.DAT1 1(%WOULD YOU LIKE TO MAKE ANO}THER ENTRY?T)( (Y,N or (C FOR A CORRECTION)6K=)BH"N(}T % "   (} $ 6- (} K 6- +-0#)-K(CURRENT HOLDINGS FILE NO. $6.7$&<$}&,$"Ap&&47+&,$&<+&,$&,A0)6-A:7$&<$&,,)%!A&&07+%,$&<+%,$&},A+ -6-%!&!6-+ A&07$&<$&,6-& A! !4DIV)4NDVA} 4SKS6-+$,& 4SLD6-6 6-% "A0A&A5$6.7$&<$&,+(2(}9(A6-%8 6- &A5 8 D:STKTOTAL H AE% D:STKTOTAL;} D:STKTOTALA6-E H$* D:STOCK.DAT$* %!( D:STKTOTAL( A5& %%} ,Q % K(>:,>:,$ΠԠQ %.^ "^3O____________________}___________________________________________________________/# "#3 STOCK0G.(#SYM TRAN DATE }EXC PRICE QTY2 86->6-D"G357 A-"*%-+(1-7(6+ "+3 }7$&<$&,:^ -^(7$&<$&, 7$&<$&, 7$&<$&, 7$&<$&@,?I/( 7}$&<$&, 7$&<$&,76-%=!C6-I6-IB -%- ! &,0 4 B"AVS}   XK+)6-F:A`,%F:Aa,$AV3%$;%C%K%]W -*(ENTER CURR}ENT PRICE<( W(STOCKS LISTED BELOWbV %-(____________________3 &I D:STKTOT}ALVKgF 6-6--(."4-:(@-F(lR -( $ 6-(6-%}.6-66-%<6-@ F6.R68,-A:,q 6-%!6-6-v {&  %( &C 6.>}:,;(% ԠӠƠӠ? C E2(% STOCK SYM QTY PRICE VALUE8-< B"}E39 A# D:STKTOTAL)6-/6-56-9 B Ax- *"*0-6(<-B(}6 6.67<,.=:,&6. 667&B:,<,.9 6.67<,.=:8,,)6. 967&B:,<,.. -.(}>:,    ; !(>:,P:8,$$,')6-%/!56-;6-6-%P:8,$$,' @(}:() @-B(>:,TOTAL (#(.2 6 <"B $}    +& L &&&&L(%ENTER SYMBOL AS LISTED IN TRANSACTION}> 2($DATA. PRESS AFTER EACH ENTRY.8-> %) -%  -%# %)6-Q -&(Ҡ}̠Ϡ3K96-?6-E6-K6-Q6- 6- 6.L -((ҠԠŠ06-%}66-<6-B6-F L6. $6-A:, -V $(ҠŠԠ,6-%26-86->6-D6-}J %P6.V6- 6-0 A u-%*47$&<$&,0 $ <  %&#&66}.7$&<$&,<6-G 6.>:,(G($ˠΠI -(  &-}%C(() I % "(G - -A($TRANS QTY PRICE DATE CHGSG-} 3  -6-%!!'6--6-3 $"07$&<$&,6-" $U  0(   } :6-$%D4SLDK6-6U6-$% 4SKS6-6-+$,&  6-%"6- $%$4DIV)4ND}V6-6$6-%/ 6-%6-%4# 6-%((# 98 8(%TOTAL SHARE FEES TOTA}L:; 7($SHARES COST PAID DIVIDND COST; <6 6.67<,.=:,&6. 667&B:,<,.>6 6.}67<,.=:,&6. 667&B:,<,.@D 6.>:, %( +D(P:$',' B (} C6 %( '6-P:$,'-6(D3 --(Ӡ٠٠Ϡ3 %F "}((H5 -(5( MARKET SHARE VALUE $J22( CURRENT SHARE COST $P:$','M;( (};( TOTAL MARKET VALUE $P:$$,'N((( TOTAL CURRENT COST $RL9( ٠ϠŠ$}P:$+$&,,'>(B L A @\ ( (6-O:, a<  <(%DATE DATE TOTAL SALES P}ROFITc@  <(%BOUGHT SOLD COST PRICE (LOSS)@ f3  -6-&#)6-3 Ak&}07$&<$&,6-& Ap;7$&<$&,4BOT ;(7$&<$&, r 6-%t8 6.67<},.=:%,(6. 867&B:,<,.u> 6.!67<,.=:P:$$,',.6. >67&B:,<,.v< 6.>:,&(}  .%<( z2$&+%,(($&+%,2 A @, ,((P:$O:$&+%,,,'})= -%!-% -&5-9 = D( (6-6-$6-*6-04 8 >}"D %N -/(!LIKE TO REVIEW ANOTHER SELECTION?<KC)HN(}" & \ (}0( ̠ԠĠӠR( PLEASE VERIFY LISTING.V \ $+% + +%-+(}3 D:STOCK.DAT3 D:STOCK.DAT -6-F6.7$&<$&,)6.7$&<$&},B6.7$&<$&@,F 3 6.>:,/(3 !! D:STOCK.DAT2+ }%"K(2 Ap~(S&$( : &%-) - }:K5 (-%  %(--1 5 k AT-,(ENTER YEAR TO REVIEW46-%:6-F}6-@)L6-R6-X6-\ b6.k6-A:, )!&ARH  -0(WOULD YOU LIKE A PRINTED COPY?7)}<B"H6-A443>:,>:, TRANSACTIONS COMPLETED IN XX3P_______________________________}2 CHIPOLACHOCBOT01/07/82OTC.05 10000 4.50 2 CHIPOLACHOCSLD06/11/82OTC.09 10000 .5 AFRONTIERAFEXBOT08}/14/79OTC2.00 1000 2.00 AFRONTIERAFEXSLD12/18/80OTC6.4375400 0 AM ISRAELAIPMBOT01/28/80AEX2.5 400} 66.70AM ISRAELAIPMSKS05/12/80AEX1.25 400 0 AM ISRAELAIPMSLD12/03/80AEX2.00 500 70.98AM LES WRA}MCABOT07/22/80OTC.22 2300 3.50 AM LES WRAMCASLD12/18/80OTC.0625 2300 33.50AVON PRDTAVP BOT08/03/82NYE}23 100 53.69BLACK DOMBDECBOT09/29/80OTC.33 5000 3.50 BLACK DOMBDECSLD12/11/82OTC.72 5000 3.50 C}RESCENT CRESBOT06/23/80OTC.10 10000 0 CRESCENT CRESSLD09/29/80OTC.3125 5000 7.50 CRESCENT CRESSLD01/}14/81OTC.59 2000 3.50 DORAL INDPENSBOT10/01/80OTC.24 4000 3.50 DORAL INDPENSSLD12/10/81OTC.39 4000} 3.50 PACIFIC GPCGEBOT08/08/79NYE18.00 80 0 PACIFIC GPCGEDIV12/31/80NYE160.000 0 PACIFIC GPC}GEDIV12/30/81NYE84.86 0 0 PACIFIC GPCGENDV12/30/81NYE81.54 0 0 PACIFIC GPCGESDV02/16/82NYE1}5.2812.827 0 SUNRISE CSUNRBOT07/22/80OTC.14 10000 3.50 SUNRISE CSUNRBOT10/23/80OTC.28 7000 3.50 SU}NRISE CSUNRSLD11/24/80OTC.6275 17000 3.50 ZOE PRDCTZOPRBOT07/08/80OTC.15 5000 3.50 ZOE PRDCTZOPRBOT08/2}0/80OTC.24 5000 3.50 ZOE PRDCTZOPRSLD12/10/80OTC.45 5000 3.50 ZOE PRDCTZOPRSLD02/17/81OTC.31 5000 } 3.50 .24 5000 3.50 ZOE PRDCTZOPRSLD12/10/80OTC.45 5000 3.50 ZOE PRDCTZOPRSLD02/17/81OTC.31 5000 AFRONTIERAFEX600AVON PRDTAVP 100CRESCENT CRES3000PACIFIC GPCGE82.827BOT06/11/82OTC.634 1000 4.50 BOT08P3 READ S,GT,TT,HD,LD,L1,L2,RT,COR,LNE,NTL,SOU,Q155,Q91,Q0,Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,Q9,Q10,Q11,Q12,Q13,Q144 READ Q16,Q18,Q19,Q}20,Q22,Q23,Q27,Q28,Q30,Q31,Q32,Q34,Q35,Q36,Q38,Q43,Q82,Q85,Q87,Q89,Q100,Q120,Q226,Q3005 READ Q710,Q712,Q752,Q58,Q576 DATA 4}4,115,63,80,75,95,97,67,76,78,65,73,155,91,0,1,2,3,4,5,6,7,8,9,10,11,12,40000,147 DATA 16,18,19,20,22,23,27,28,30,31,32,34,3}5,36,38,43,82,85,87,89,100,120,226,300,710,712,752,58,5716 DATA BOT,DIV,NDV,SDV,SKS,SLD18 DIM P(Q100),A1$(Q8)19 DIM S1$(Q9}_________________________________________________VV3N STOCK SYMBOL DATE DATE TOTAL SALES PROFI}T SHORTZW3O BOUGHT SOLD COST PRICE (LOSS) OR LONGZ3' (}6-}!-' %< &%2( TRANSACTIONS COMPLETED IN 8-< Z -4(&SYMBL DATE TOTAL SALES PROFIT S/}LZ(! SOLD COST PRICE (LOSS)! - %6-6-!N A-(6.7$&<$&,;6.7$&<}$&,N6.7$&<$&,C6-A:7$&<$,,-6-A:7$&<$&,,C6-A:7$&<$&,,C +4SLD*A:7$&@!}<$&,,"16-76-=6-C $U 6-6-6-6- '-%:( SHORT TERM $B-%U( LONG TERM $R }" 3R3? SHORT TERM $X "O3? } LONG TERM $R3U3X3 , 6-6-6- $ ( ,   %x# %&&}),X$(S),A$(Q8),S$(6600),Y$(Q4),T$(Q3),D$(Q8),E$(Q3),P$(Q6),Q$(Q6),C$(Q5),MS$(Q10),SC$(Q8),SP$(Q8)20 GRAPHICS Q0:START=PEEK(5}60)+PEEK(561)*256:POKE START+Q3,Q82-Q11:POKE START+Q6,Q625 POKE Q87,Q2:? #Q6;"ˠ":POKE Q87,Q1:? #Q6;"_________}___________"30 POKE Q87,Q0:POKE Q710,Q100+HD35 ? "":? " ENTER NEW TRANSACTIONS":? :? " CORRECT EXISTING TRANSACTIONS}"40 ? :? " LISTING OF ALL TRANSACTIONS":? :? " CURRENT STATUS OF HOLDINGS"41 ? :? " THE PROFIT/LOSS ON A GIVEN STO}CK":? :? " PROFIT/LOSS IN GIVEN YEAR"42 POSITION Q2,Q20:? "ŠΠĠ";:OPEN #Q2,Q4,Q0,"K"43 GE}T #Q2,O:CLOSE #Q2:O=O-S-Q4:IF OQ6 THEN GOTO Q2044 ON O GOTO Q300+Q100,Q300,550,Q2*Q300,Q100*Q7,115045 IF K>Q0 OR X}K>Q0 THEN RETURN 48 QY=TQ-QZ:Q=Q-QY:IF QQ18 THEN L=Q18:B=Q170 IF PR=Q2 AN}D S$((C+Q1)*S-Q30,(C+Q1)*S-Q28)<>"SLD" THEN LPRINT S1$;" ";Y$;" ";D$;" ";S$(T*S-Q27,T*S-Q20)71 A1$=D$:IF YC>YT-Q1 THEN} O=Q82+Q1:RETURN 72 O=COR:RETURN 73 FOR A=Q14 TO Q0 STEP -Q1:SOUND Q2,Q100,Q10,A:SOUND Q1,Q10,Q10,A74 NEXT A:SOUND Q2,Q0,Q}0,Q0:SOUND Q1,Q0,Q0,Q0:RETURN 75 POKE Q752,Q1:? "":? " ENTERING DATA":? " PLEASE STANDBY":GOSU}B Q100*Q14:M=Q10:RETURN 76 SOUND Q2,Q43,Q6,Q6:FOR A=Q1 TO Q155:NEXT A:SOUND Q2,Q0,Q0,Q0:RETURN 77 FOR A=Q1 TO Q20:SOUND Q0,}Q82-A,Q10,Q10:NEXT A:SOUND Q0,Q0,Q0,Q0:RETURN 78 POSITION Q0,A:? "";:RETURN 79 X$(T},T)=CHR$(O):POSITION B-Q1+T,L:? CHR$(O):Q=Q-Q1:T=T+Q1:RETURN 80 POKE Q752,Q1:POSITION Q5,Q22:? " Ӡ٠٠Ҡ  } "81 POKE Q752+Q12,Q155+Q10082 IF PEEK(Q752+Q12)=Q155+Q100 THEN GOTO Q8283 POKE Q752+Q12,Q155+Q100:RETURN 85 RESTORE Q }16:FOR K=Q1 TO Q6:READ T$:IF X$=T$ THEN K=Q6:RETURN 86 NEXT K:X$="":GOSUB COR:POP :Q=Q3:GOTO Q120-Q587 IF PR=Q1 THEN ? #Q3; }X$;" ";88 RETURN 89 POSITION Q5,Q22:? "ĠՠŠĠٿ"90 OPEN #Q2,Q4,Q0,"K":GET #Q2,O:CLOSE #Q2:IF O=Q89 T }HEN X$(Q1,Q1)="P":PR=Q1:W=Q14:DT=Q27:GOTO Q89+Q491 RETURN 92 X$(Q1,Q1)="S":W=Q32:DT=Q32:PR=Q093 IF PR=Q1 THEN LPRINT CHR$( }Q27);CHR$(Q19)94 OPEN #Q3,Q8,Q32,X$(Q1,Q1):RETURN 95 ? #Q3;"":RETURN 96 ? "}":RETURN 97 ? #Q3;" ";:IF PR=Q1 THEN ? #Q3;CHR$(Q12+Q1);98} RETURN 99 ? #Q3;"":RETURN 100 B=Q2:FOR T=Q8 TO Q16+Q1:POSITION B,T:? "}":NEXT T102 POSITION B,Q9:? "STOCKSYMBOLTRANSACTIONDATE"104 POSITION B,Q14:? "EXCHGPRICE/}DIVQUANT.COMM/MISC":RETURN 106 POSITION B-Q1,L:? CHR$(Q155+Q35);:RETURN 108 X$="":POSITION B,L:? MS$(Q1,Q):POSITION B},L:RETURN 110 POSITION Q3,Q20:? "":IF O=Q155 AND X$<>"" THEN X$=X$(Q1,Q):POSITION B-Q1,L:? CHR$(Q155+Q5):Q=Q0112 IF O>=D}1 AND OQ155 AND O<>Q120+Q6) AND Q=Q0 THEN GOSUB Q57+Q20:GOTO Q120124 IF (B=Q30 OR B1=Q30) AND O<>Q1}20+Q6 THEN IF Q=Q6 OR Q=Q3 THEN O=Q36+Q11:GOSUB Q57+Q22:GOTO Q120125 IF O=Q155 AND Q>Q0 THEN X$(LEN(X$)+Q1)=" ":Q=Q-Q1:GOTO }Q120+Q5130 IF O>=D1 AND O=Q1 THEN X$(T,T)=CHR$(O):POSITION B-Q1+T,L:? CHR$(O):Q=Q-Q1:T=T+Q1131 IF (M1=Q2 AND O=Q15}5) AND BQ120+Q6 AND (OD) THEN FOR A=Q1 TO Q20:POKE 53279,Q0:NEXT A135 IF O<>Q120+Q6 THEN GOTO Q120140 IF T>Q1 THEN POSITION B-Q2+T,L:? MS$(Q}1,Q1):T=T-Q1:Q=Q+Q1142 IF T=Q1 THEN X$=""143 IF T>Q1 THEN X$=X$(Q1,T-Q1)144 GOTO Q120145 IF QZ<=Q*P THEN QZ=QZ/P146 IF K}=Q1 AND B1>Q0 AND B1Q#}0 AND QZ>TQ THEN C1=P*TQ+TQ*(MC/Q):RETURN 166 C1=P*QZ+QZ*(MC/Q):RETURN 167 ? "":RET$}URN 168 GOSUB COR:GOSUB Q57:POSITION Q3,Q20:? " DATE MUST BE ENTERED---MM/DD/YY USE ZEROS TO FILL SINGLE DIGITS"169 %}D$(Q7,Q8)=STR$(MT):A=Q2:GOTO Q155-Q1170 FOR A=Q0 TO T:C=T-A:IF C=Q0 THEN A=A+Q1:GOTO Q226-Q36175 IF Y$<>S$(C*S-Q34,C*S-Q31)&} THEN GOTO Q155+Q35180 NEXT A190 J=Q0:V=Q0:B1=Q0:SR=QO:FOR K=Q0 TO Q1:FOR X=A-Q1 TO Q0 STEP -Q1:C=T-X:IF C=Q0 THEN NEXT X1'}92 GOSUB NTL:GOSUB Q43+Q18195 IF YC>YT THEN GOTO Q155+L1200 IF T$="NDV" AND S2=Q1 THEN C1=-P202 IF T$<>"SKS" THEN GOTO Q22(}6-Q16203 CK=TC:S3=Q2:IF J=QO THEN J=A:CK=Q0:S3=Q0:QK=QZ204 IF XK=X THEN J=XK:XK=Q0:S2=Q1:QZ=QK:S3=Q0:GOTO Q226-Q20205 IF X)}K=Q0 THEN TQ=(Q*P-Q)-B1:S2=Q2:XK=X:X=J:TC=CK:GOSUB Q155-Q10:NEXT X206 IF V>Q0 THEN SR=TC/(Q*P):GOTO Q226-Q18207 SR=TC/Q:V=Q*}2208 TQ=Q*P:CK=(SR*TQ)-TC:IF S2=Q1 AND K=Q0 THEN GOSUB RT209 GOTO Q155+L1210 IF T$<>"SLD" THEN GOTO Q226-Q6211 IF YC=YT A+}ND K=Q1 AND V>Q0 THEN TC=SR*QZ212 IF YC=YT THEN S3=Q0:IF QS=Q0 THEN K=Q1:GOTO Q155+L2214 IF YC<>YT AND XK=Q0 THEN QS=QS+Q:I,}F K=Q0 THEN B1=QS217 IF SR<>Q0 AND YC<>YT THEN SR=Q0:TQ=TQ-Q220 IF T$="BOT" AND TQQ2 THEN TC=TC+C1:IF K=Q1 AND XK=Q0 AND CK>Q0 THEN CK=CK+C1250 QY=Q0:C1=Q0:NEXT X:/}S2=Q3:S3=Q0:TQ=-QS:QS=Q0:J=QO:SR=Q0:V=Q0:IF K=Q0 THEN TC=Q0252 NEXT K:A=T:CK=Q0:XK=Q0:SC=INT(Q100*TC)/Q100+MC1:SP=INT(Q100*P0}1*QZ)/Q100:PG=INT(Q100*(P1*QZ-(MC1+TC)))/Q100255 X$="":X$(Q1,Q8)=STR$(SC):SC$=" ":SC$(Q9-LEN(X$),Q8)=X$256 X$="":X$(1}Q1,Q8)=STR$(SP):SP$=" ":SP$(Q9-LEN(X$),Q8)=X$258 X$="":X$(Q1,Q9)=STR$(PG):MS$=" ":MS$(Q10-LEN(X$),Q9)=X$2602} POKE Q85,Q6:? S$(T*S-Q27,T*S-Q20);" ";SC;:POKE Q85,Q22:QZ=ABS(QZ):? SP;270 IF PG>Q0 THEN POKE Q85,Q27:? MS$;:GOTO Q5*Q57273}5 PG=-PG:X$="":X$(Q2,Q9)=STR$(PG):X$(Q1,Q1)="(":MS$=" )":MS$(Q10-LEN(X$),Q9)=X$280 POKE Q85,Q27:? MS$;:PG=-PG285 IF4} PR=Q2 THEN GOSUB Q58286 POKE Q85,Q38:? CHR$(O):IF O=Q82+Q1 THEN PS=PS+PG290 IF O=COR THEN PL=PL+PG292 RETURN 294 IF TQ>Q5}Z AND J>Q0 THEN GOSUB Q43+Q2:GOTO Q300-Q4295 IF TQ>QZ AND J=Q0 THEN GOSUB Q43+Q5296 IF QZ=Q THEN TC=P*Q+Q*(MC/(Q+QY)):S3=Q26}:RETURN 297 IF QZ>Q THEN C1=P*Q+Q*(MC/(Q+QY)):RETURN 299 C1=P*QZ+QZ*(MC/Q):RETURN 300 GRAPHICS Q0:POKE Q710,Q226:POKE Q7127},Q32+Q34310 ? :? :? " ENTER THE SYMBOL OF STOCK TO BE":? " CORRECTED AND PRESS .":POKE Q752,Q1:GOSUB Q100315 POSI8}TION Q2,Q5:? " ":OPEN #Q2,Q4,Q0,"K":M1=Q1:D1=Q32:D=Q89+Q2320 B=Q18:L=Q5:Q=Q4:GOSUB GT:Y$9}=X$:TRAP 395:XIO Q36,#Q1,Q0,Q0,"D:STOCK.DAT":OPEN #Q1,Q4,Q0,"D:STOCK.DAT":TRAP Q13325 TRAP LNE*Q5:NOTE #Q1,X,Y:INPUT #Q1;S1$:},Y$,T$,D$,E$,P$,Q$,C$:IF X$(Q1,Q4)=Y$ THEN GOTO Q300+Q35330 GOTO NTL*Q5335 TRAP Q13:GOSUB SOU:L=Q11:POSITION Q3,L:? S1$:POS;}ITION Q14,L:? Y$:POSITION Q23,L:? T$:POSITION Q30,L:? D$340 L=Q16:POSITION Q4,L:? E$:POSITION Q11,L:? P$:POSITION Q20,L:? Q$<}:POSITION Q32,L:? C$345 ? "";" IS THIS THE TRANSACTION?":GET #Q2,O:IF O=Q89 THEN 355350 GOTO NTL*Q5355 GOSUB Q155=}-Q7:M1=Q2:GOSUB Q155-Q3:CLOSE #Q1:OPEN #Q1,Q12,Q0,"D:STOCK.DAT":X$=CHR$(Q155)365 POINT #Q1,X,Y:? #Q1;S1$;X$;Y$;X$;T$;X$;D$;X>}$;E$;X$;P$;X$;Q$;X$;C$370 CLOSE #Q1:XIO Q35,#Q1,Q0,Q0,"D:STOCK.DAT":GOSUB Q57:POSITION Q3,Q20:? " LIKE TO MAKE ANOTHER CORR?}ECTION?"375 ? " (Y,N,(M FOR NEW ENTRY) or":? " (D TO DELETE BLANKED TRANSACTION)";376 GET #Q2,O:CLOSE #Q2:IF O=Q89 TH@}EN GOTO Q300380 IF O=Q85-Q8 THEN GOTO Q300+Q100382 IF O=Q2*Q34 THEN GOTO Q100*Q10384 IF O<>LNE THEN GOSUB SOU:OPEN #Q2,Q4,A}Q0,"K":GOTO 370385 TRAP Q13:GOTO 450390 POSITION Q4,Q19:? "ǠԠĠŠ":GOSUB COR:GOTO 370395 POSITIB}ON Q5,Q19:? " NO TRANSACTIONS IN FILE.":? " ENTER DATA THRU SELECTION "396 CLOSE #Q3:CLOSE #Q2:GOSUB HD:M=Q0:GOTO Q20C}400 GRAPHICS Q0:POKE Q710,Q226:POKE Q712,Q226:OPEN #Q2,Q4,Q0,"K":M1=Q1405 ? "";" ENTER THE FOLLOWING DATA IN THE":? " D} APPROPRIATE SPACE.";410 ? "PRESS ":? " AFTER EACH ENTRY.":POKE Q752,Q1:GOSUB Q100412 GOSUB Q155-Q3414 GOSUB SOU:E}GOSUB Q57:? " IS DATA ENTRY COMPLETE (Y or N)?":GET #Q2,O:? "":CLOSE #Q2416 IF O=LNE THEN M1=Q2:OPEN #Q2,Q4,Q0,"K":GOSUBF} Q120+Q28:GOTO Q712-Q300418 IF O<>Q89 THEN OPEN #Q2,Q4,Q0,"K":GOTO 414420 TRAP Q20*Q27:XIO Q36,#Q1,Q0,Q0,"D:STOCK.DAT":OPENG} #Q1,Q9,Q0,"D:STOCK.DAT"425 X$=CHR$(Q155):? #Q1;S1$;X$;Y$;X$;T$;X$;D$;X$;E$;X$;P$;X$;Q$;X$;C$:CLOSE #Q1:XIO Q35,#Q1,Q0,Q0,"DH}:STOCK.DAT"430 GOSUB Q57:? "WOULD YOU LIKE TO MAKE ANOTHER ENTRY?"435 ? " (Y,N or (C FOR A CORRECTION)";:OPEN #Q2,Q4,Q0,I}"K":GET #Q2,O:CLOSE #Q2:IF O=Q89 THEN ? "}":GOTO Q300+Q100440 IF O=RT THEN GOTO Q300445 IF O<>LNE THEN GOSUB SOU:? "":GOTJ}O Q43*Q10450 M1=Q2:TRAP Q13:? "}":GOSUB LD455 L=Q1:GRAPHICS Q0:FOR T=Q1 TO N:SETCOLOR Q2,L,Q2:POKE Q752,Q1:POSITION Q6,Q7:?K} "CURRENT HOLDINGS FILE NO. ";L460 Y$=S$(T*S-Q34,T*S-Q31):IF T=Q1 THEN 470465 IF Y$=S$((T-Q1)*S-Q34,(T-Q1)*S-Q31) THEN 530L}470 QZ=VAL(S$(T*S-Q10,T*S-Q5)):IF T+Q1>N THEN 515475 IF Y$<>S$((T+Q1)*S-Q34,(T+Q1)*S-Q31) THEN 515480 FOR A=Q1 TO Q30:C=T+M}A:IF A>N-T THEN A=Q30:GOTO 510485 IF Y$<>S$(C*S-Q34,C*S-Q31) THEN A=Q30:GOTO 510490 GOSUB NTL:IF T$="DIV" OR T$="NDV" THEN N}510495 IF T$="SKS" THEN Q=(P*Q)-Q500 IF T$="SLD" THEN Q=-Q505 QZ=QZ+Q510 NEXT A:IF QZ=Q0 THEN 530515 ON M1-Q1 GOSUB 535:O}S1$=S$(T*S-Q43,T*S-Q35):? #Q4;S1$:? #Q4;Y$:? #Q4;QZ:L=L+Q1530 QZ=Q0:NEXT T:ON M1-Q1 GOSUB 535:CLOSE #Q4:XIO Q35,#Q4,Q0,Q0,"DP}:STKTOTAL"532 GOTO Q20535 TRAP 545:XIO Q36,#Q4,O,O,"D:STKTOTAL":OPEN #Q4,Q8,Q0,"D:STKTOTAL":M1=Q1:TRAP Q13:RETURN 540 CLOSQ}E #Q1:OPEN #Q1,Q8,Q0,"D:STOCK.DAT":CLOSE #Q1:GOTO Q300+Q120545 OPEN #Q4,Q8,Q0,"D:STKTOTAL":CLOSE #Q4:GOTO 535550 GOSUB Q89+R}Q3:POKE Q710,Q155+Q8:IF M<>Q10 THEN GOSUB LD556 POKE Q710,Q155+Q8:POKE Q752,Q1:GOSUB L1:? #Q3;CHR$(DT);CHR$(W);"S}ΠԠ":GOSUB Q89+Q10558 IF PR=Q1 THEN LPRINT "___________________________________________________________T}____________________";559 IF PR=Q1 THEN LPRINT " STOCK";560 ? #Q3;"SYM TRAN DATE EXC PRICE QTY":GOSUBU} L1:B=Q2:L=Q5:IF PR=Q1 THEN LPRINT 565 TRAP 595:FOR T=Q1 TO N:IF B=Q1 AND PR<>Q1 THEN POSITION Q2,Q5:? "":POSITION Q2,L:? "V}"566 IF PR=Q1 THEN LPRINT " ";S$(T*S-Q43,T*S-Q35);570 POSITION Q2,L:? #Q3;S$(T*S-Q34,T*S-Q31);" ";S$(T*S-Q30,W}T*S-Q28);" ";S$(T*S-Q27,T*S-Q20);" ";S$(T*S-Q19,T*S-17);575 ? #Q3;" ";S$(T*S-Q16,T*S-Q11);" ";S$(T*S-Q10,T*S-Q5):L=L+Q1:IF X}L>Q20 THEN L=Q20:B=Q1585 NEXT T:FOR A=Q20+Q1 TO Q23 STEP Q2:POSITION Q2,A:GOSUB L1:NEXT A:CLOSE #Q3:IF PR<>Q1 THEN GOSUB SOUY}:GOSUB Q89:IF PR=Q1 THEN 556595 CLOSE #Q3:GOSUB SOU:GOSUB HD:GOTO Q20600 GRAPHICS Q0:START=PEEK(560)+PEEK(561)*256:POKE STAZ}RT+Q3,Q10*Q7:POKE START+Q6,Q6:POKE START+Q7,Q6:POKE START+Q8,Q6605 POKE Q87,Q1:POSITION Q0,Q0:? #Q6;"ENTER CURRENT PRICE":? [}#Q6;" ":? #Q6;"STOCKS LISTED BELOW"610 POKE Q87,Q1:POKE Q710,Q155+Q57:? #Q6;"____________________":TRAP Q710-LD:OPE\}N #Q4,Q4,Q0,"D:STKTOTAL":OPEN #Q2,Q4,Q0,"K"615 POKE Q752,Q1:L=Q4:B=Q2:FOR Z=Q1 TO Q300:INPUT #Q4;S1$,Y$,QZ:IF B=Q1 THEN POSI]}TION Q12,Q4:? "":POSITION Q12,L:? ""620 POKE Q87,Q0:POSITION Q12,L:? S1$;" $";:M1=Q1:D1=Q43+Q3:D=Q58:B=Q23+Q1:Q=Q6:GOSUB ^}GT:P$=X$:P(Z)=VAL(P$)625 L=L+Q1:IF L>Q20 THEN L=Q20:B=Q1630 NEXT Z635 CLOSE #Q4:CLOSE #Q2:GOSUB Q89+Q3:POKE Q710,Q226:? :G_}OSUB L1:POKE Q752,Q1640 X$=CHR$(W):? #Q3;X$;" ԠӠƠӠ":GOSUB L1:GOSUB TT645 ? #Q3;X$;" STOCK `} SYM QTY PRICE VALUE":POSITION Q2,Q5:GOSUB L1:IF PR=Q1 THEN LPRINT 650 TRAP 685:OPEN #Q4,Q4,Q0,"D:STKTOTAL":ST=Q0:Ba}=Q2:L=Q7:TRAP Q13655 TRAP 678:FOR Z=Q1 TO Q300:INPUT #Q4;S1$,Y$,QZ:IF B=Q1 AND PR<>Q1 THEN POSITION Q1,Q7:? "":POSITION Q1,b}L:? ""660 X$="":X$(Q1,Q6)=STR$(QZ):Q$=" ":Q$(Q7-LEN(X$),Q6)=X$662 X$="":X$(Q1,Q6)=STR$(P(Z)):P$=" ":P$(Q7-LEN(c}X$),Q6)=X$665 POSITION Q1,L:? #Q3;CHR$(W);S1$;" ";Y$;" ";Q$;" ";P$;" ";666 POKE Q85,Q31:? #Q3;CHR$(W);INT(P(Z)*QZ*Q100)/Qd}100:L=L+Q1:IF L>Q20 THEN L=Q20:B=Q1675 ST=ST+INT(P(Z)*QZ*Q100)/Q100:NEXT Z678 ? #Q3:? #Q3;" e} ";:POSITION Q22,Q22680 ? #Q3;CHR$(W);"TOTAL ";ST:? #Q3:CLOSE #Q4:CLOSE #Q3:IF PR<>Q1 THEN GOSUB SOU:GOSUB Q89:IF Pf}R=Q1 THEN GOTO Q32*Q20685 CLOSE #Q4:CLOSE #Q3:GOSUB SOU:GOSUB HD:GOTO Q20700 GRAPHICS Q0:POKE Q710,Q226-Q31:IF M<>Q10 THEN g}GOSUB LD705 POKE Q712,Q226-Q18:POKE Q710-Q1,Q226-Q18:POKE Q710,Q226-Q10:? "";"ENTER SYMBOL AS LISTED IN TRANSACTION"710 Pq}b'DOS SYSb*+DUP SYSBUAUTORUN SYSbVINTRO SAVbdSTOCKAN2SAVbSTOCK DATbSTKTOTAL bSTOCKAN LSTbDISKNAMEDATPROGLIB DB STOCKAN SAVOKE Q752,Q1:? "DATA. PRESS AFTER EACH ENTRY.":POSITION Q0,Q7:GOSUB Q155+Q12715 FOR A=Q8 TO Q12+Q1:GOSUB LNE:NEXT A:POr}SITION Q0,Q12+Q1:GOSUB Q155+Q12:B=Q28725 POSITION Q2,Q8:? "Ҡ̠Ϡ":OPEN #Q2,Q4,Q0,"K":M1=Q1:D1=Q32:D=Q91:Bs}=Q28:L=Q8726 Q=Q4:GOSUB GT:Y$=X$730 POSITION Q2,Q10:? "ҠԠŠ":D1=Q43+Q3:D=Q58:L=Q10:Q=Q6:GOSUB GT:P$=Xt}$732 TRAP SOU*Q10:P1=VAL(P$):TRAP Q13:POSITION Q2,Q12735 IF Z<>Q1 THEN ? "ҠŠԠ":D1=Q43+Q4:D=Q58:L=Q12:B1=u}Q30:Q=Q8:GOSUB GT+Q1:A$=X$:Z=Q1740 B1=Q0:CLOSE #Q2750 TRAP 975:FOR T=Q1 TO Q300+Q1:IF Y$=S$(T*S-Q34,T*S-Q31) THEN GOTO COR*v}Q10755 NEXT T760 TRAP Q13:GOSUB Q89+Q3:POKE Q752,Q1:POKE Q710,Q300-Q89:POKE Q712,Q300-Q89:S1$=S$(T*S-Q43,T*S-Q35):T1=T762 w}X$=CHR$(W):? #Q3;X$:POKE Q85,Q1:? #Q3;X$;"ˠΠ"765 POSITION Q0,Q2:? #Q3;X$;" ";S1$;" ";:Px}OSITION Q14+Q1,Q2:? #Q3;X$;"(";Y$;")";" ";A$:GOSUB Q89+Q10768 IF PR=Q1 THEN ? #Q3770 POSITION Q1,Q5:GOSUB L2:POSITIONy} Q1,Q6:? #Q3;X$;"TRANS QTY PRICE DATE CHGS":POSITION Q1,Q7780 GOSUB TT:GOSUB L2:FOR A=Q0 TO Q30:C=T1+A:IF C>N THEz}N C=N:A=Q30:GOTO Q82*Q10785 IF Y$<>S$(C*S-Q34,C*S-Q31) THEN A=Q30:GOTO Q82*Q10790 GOSUB NTL:GOSUB Q87:? #Q3;X$;T$;" ";Q$;"{} ";P$;" ";D$;" ";C$:C1=Q*P+MC:IF T$="SLD" THEN Q=-Q:C1=Q*P+MC795 IF T$="SKS" THEN C1=Q0:Q=(P*Q)-Q800 TQ=TQ+Q:IF TQ=Q0 TH|}EN A=Q30:GOTO Q43*Q20805 IF T$="DIV" OR T$="NDV" THEN C1=-P:DV=DV+P815 TC=TC+C1:TM=TM+MC820 NEXT A:T=Q300+Q1:? #Q3:? #Q3:P}}OKE Q85,Q1:GOSUB L2825 POKE Q85,Q1:? #Q3;X$;"TOTAL SHARE FEES TOTAL"826 POKE Q85,Q1:? #Q3;X$;"SHARES COST ~} PAID DIVIDND COST":GOSUB TT828 X$="":X$(Q1,Q6)=STR$(TM):Q$=" ":Q$(Q7-LEN(X$),Q6)=X$830 X$="":X$(Q1,Q6)=STR$(DV):}P$=" ":P$(Q7-LEN(X$),Q6)=X$832 X$=CHR$(W):POKE Q85,Q1:GOSUB L2:? #Q3;X$;TQ;" ";:POKE Q85,Q9:? #Q3;X$;INT(TC*Q100/TQ)/}Q100;" ";834 POKE Q85,Q16:? #Q3;X$;Q$;" ";835 POKE Q85,Q23+Q3:? #Q3;X$;P$;" ";:TC=INT(Q100*TC)/Q100:POKE Q85,Q32:? #Q3};X$;TC836 IF PR<>Q1 THEN POSITION Q8,Q22:? "Ӡ٠٠Ϡ":GOSUB HD+Q1838 IF PR=Q1 THEN ? #Q3:? #Q3840 POSITIO}N Q2,Q22:? "":? #Q3;X$;" MARKET SHARE VALUE $";P1842 ? #Q3;X$;" CURRENT SHARE COST $";INT(Q100*TC/TQ)/Q100845 ? }#Q3:? #Q3:? #Q3;X$;" TOTAL MARKET VALUE $";INT(Q100*P1*TQ)/Q100846 ? #Q3;X$;" TOTAL CURRENT COST $";TC850 ? #Q3;X$;}" ٠ϠŠ$";INT(Q100*(P1*TQ-TC))/Q100;"":? #Q3:GOSUB L1:GOTO 940860 ? #Q3:? #Q3:Q=ABS(Q):POKE Q85,Q1:GOSUB }L2865 GOSUB Q87:POKE Q85,Q1:? #Q3;X$;"DATE DATE TOTAL SALES PROFIT"867 GOSUB Q87:POKE Q85,Q1:? #Q3;X$;"BOUGHT S}OLD COST PRICE (LOSS)":GOSUB TT870 POKE Q85,Q1:GOSUB L2:FOR A=Q0 TO Q30:C=T1-A:IF A>=T1 THEN A=Q30:GOTO 882875 IF Y$<>}S$(C*S-Q34,C*S-Q31) THEN A=Q30:GOTO 882880 IF S$(C*S-Q30,C*S-Q28)="BOT" THEN POKE Q85,Q0:? #Q3;X$;S$(C*S-Q27,C*S-Q20);" ";8}82 NEXT A:T=Q300+Q1884 X$="":X$(Q1,Q6)=STR$(TC+MC):Q$=" ":Q$(Q7-LEN(X$),Q6)=X$885 X$="":X$(Q1,Q5)=STR$(INT(Q100*P*Q)/}Q100):P$=" ":P$(Q6-LEN(X$),Q5)=X$886 X$=CHR$(W):POKE Q85,Q9:? #Q3;X$;D$;" ";Q$;" ";:POKE Q85,Q23+Q2:? #Q3;X$;P$;" ";89}0 IF P*Q-(MC+TC)>=Q0 THEN POKE Q85,Q32:? #Q3;X$;P*Q-(MC+TC):GOTO 940895 POKE Q85,Q31:? #Q3;X$;"(";INT(Q100*ABS(P*Q-(TC+MC)))}/Q100;")"900 IF PR<>Q1 THEN FOR X=Q1 TO Q10:POKE Q710,Q23+Q27:FOR A=Q1 TO Q30:NEXT A:POKE Q710,Q300-Q89:FOR A=Q1 TO Q14:NEXT} A:NEXT X940 ? #Q3:? #Q3:CLOSE #Q3:TC=Q0:TQ=Q0:TM=Q0:DV=Q0:IF PR<>Q1 THEN GOSUB SOU:GOSUB Q89:IF PR=Q1 THEN GOTO Q752+Q1095}0 POSITION Q4,Q22:? "LIKE TO REVIEW ANOTHER SELECTION?":OPEN #Q2,Q4,Q0,"K":GET #Q2,O:CLOSE #Q2:? "}"955 CLOSE #Q3:IF O=Q89 T}HEN GOTO Q710-Q5970 GOTO Q20975 ? "":? " ̠ԠĠӠ":? " PLEASE VERIFY LISTING.":GOSUB COR:GO}TO L1*Q101000 GRAPHICS Q0:POKE Q710,Q30+Q38:GOSUB LD1005 GRAPHICS Q1+Q16:POSITION Q0,Q10:? #Q6;""1010 }XIO Q36,#Q1,Q0,Q0,"D:STOCK.DAT":OPEN #Q1,Q8,Q0,"D:STOCK.DAT"1020 FOR T=Q1 TO N:C=T1030 S1$=S$(T*S-Q43,T*S-Q35):Y$=S$(T*S-Q3}4,T*S-Q31):E$=S$(T*S-Q19,T*S-17):GOSUB NTL1040 X$=CHR$(Q155):? #Q1;S1$;X$;Y$;X$;T$;X$;D$;X$;E$;X$;P$;X$;Q$;X$;C$:NEXT T1050} CLOSE #Q1:XIO Q35,#Q1,Q0,Q0,"D:STOCK.DAT"1052 GRAPHICS Q0:POKE Q710,Q226:POKE Q712,Q32+Q34:OPEN #Q2,Q4,Q0,"K":POKE Q752,Q1:}GOTO 3701150 OPEN #Q3,Q8,Q32,"S":POKE Q710-Q1,Q32:POKE Q710,Q38:IF M<>Q10 THEN GOSUB LD1152 POKE Q712,Q38:POKE Q710-Q1,Q32:}POKE Q710,Q38:POKE Q752,Q1:FOR A=Q1 TO Q4:GOSUB LNE:NEXT A:OPEN #Q2,Q4,Q0,"K"1154 ? "":FOR A=Q10 TO Q12+Q1:GOSUB LNE:NEXT} A:? "":FOR A=Q19 TO Q22:GOSUB LNE:NEXT A1155 TRAP 1154:POSITION Q7,Q7:? "ENTER YEAR TO REVIEW":D1=S+Q4:D=Q58:B=29:M1=Q1:}L=Q7:Q=Q2:GOSUB GT:D$=X$:DT=VAL(D$)1156 IF DTQ100-Q1 THEN 11521160 TRAP Q13:POSITION Q4,Q16:? "WOULD YOU LIKE A P}RINTED COPY?":GET #Q2,O:CLOSE #Q2:IF O=Q89 THEN PR=Q21165 IF PR<>Q2 THEN 12051170 LPRINT CHR$(Q27);CHR$(Q14);" TRANSAC}TIONS COMPLETED IN ";DT1175 LPRINT "________________________________________________________________________________"1180 L}PRINT " STOCK SYMBOL DATE DATE TOTAL SALES PROFIT SHORT"1185 LPRINT " BOUG}HT SOLD COST PRICE (LOSS) OR LONG":LPRINT 1205 ? "}":B=Q1:POKE Q712,Q36:POKE Q710,Q36:POSITION B,Q0:GOS}UB Q89+Q71210 POKE Q710-Q1,Q38+Q4:? " TRANSACTIONS COMPLETED IN ";DT:POSITION B,Q2:GOSUB L21215 POSITION B,Q3:? "SYMBL }DATE TOTAL SALES PROFIT S/L":? " SOLD COST PRICE (LOSS)"1220 POSITION B,Q5:GOSUB Q89+Q7:B=Q2:L=Q6:POKE Q82,Q0}1230 TRAP 1295:FOR T=Q1 TO N:T$=S$(T*S-Q30,T*S-Q28):Y$=S$(T*S-Q34,T*S-Q31):S1$=S$(T*S-Q43,T*S-Q35)1235 MC1=VAL(S$(T*S-Q4,T*S})):QZ=VAL(S$(T*S-Q10,T*S-Q5)):P1=VAL(S$(T*S-Q16,T*S-Q11))1240 TRAP Q13:IF T$="SLD" AND VAL(S$(T*S-21,T*S-Q20))=DT THEN S2=Q1}:S3=Q0:TQ=Q0:GOSUB Q5*Q341280 TQ=Q0:TC=Q0:MC=Q0:S2=Q0:NEXT T:POSITION Q18,L+Q2:? "SHORT TERM $";PS:POSITION Q18,L+Q3:? "LONG} TERM $";PL1285 IF PR=Q2 THEN LPRINT :LPRINT " SHORT TERM $";PS1286 IF P}R=Q2 THEN LPRINT " LONG TERM $";PL:LPRINT :LPRINT :LPRINT 1290 PS=Q0:PL=Q}0:PR=Q0:POKE Q82,Q2:CLOSE #Q3:GOSUB SOU:GOSUB HD:GOTO Q201295 POKE Q82,Q2:GOTO Q300+L11400 POKE Q120+Q85,S:POKE Q226-Q23,Q0}:POKE Q226-Q22,Q12:POKE Q226-Q20,Q01410 TRAP Q300*Q5:S$="":OPEN #Q1,Q4,Q0,"D:STOCK.DAT":TRAP Q131420 TRAP 1480:INPUT #Q1;S1}$,Y$,T$,D$,E$,P$,Q$,C$:IF Y$=" " THEN 14701440 X$=S1$:X$(LEN(X$)+Q1)=Y$:X$(LEN(X$)+Q1)=T$:X$(LEN(X$)+Q1)=D$1450 X$(LEN(X}$)+Q1)=E$:X$(LEN(X$)+Q1)=P$:X$(LEN(X$)+Q1)=Q$:X$(LEN(X$)+Q1)=C$:S$(LEN(S$)+Q1)=X$1470 GOTO Q710*Q21480 CLOSE #Q1:N=(LEN(S$)}#&+ $6.' D:STOCK.DAT+ 5 A"54 Ap3 6.67B:,%,}/S):IF N<>INT(N) THEN GRAPHICS Q0:? "STRING ERROR":STOP 1490 ? "";" TRANSACTIONS LOADED ";N:IF N>Q1 THEN A=USR(15}68,ADR(S$),N)1500 CLOSE #Q1:GRAPHICS Q0:RETURN ":STOP 1490 ? "";" TRANSACTIONS LOADED ";N:IF N>Q1 THEN A=USR(151.%67B:,%,.367B:,%,.I67B:,%,.67B:,%,.-67B:,%,.;67B:,%,.I67B:,%,. $66-}+B:,',P:,"+3( STRING ERROR6&I-( TRANSACTIONS LOADED 3!I6-?:Ah